10 GOSUB110
20 REM GOSUB 160 IF YOU HAVE CHAR DATA
30 END:REM SET UP IN BLOCK 3 NOW!
40 :
50 A$(1)="USEFUL VIC CHIP ROUTINES-BASIC"
60 A$(2)="[212]HIS ROUTINE MOVES VIDEO MEMORY"
70 A$(3)="TO BLOCK 3, COPIES DOWN THE"
80 A$(4)="CHARACTER SET AND SWITCHES OVER"
90 A$(5)="THE SCREEN EDITOR"
100 REM SCREEN = 49152:CHARSET = 61440
110 FORI=1TO5:PRINTA$(I):NEXT
115 POKE781,9:POKE782,1:POKE90,.:POKE91,216:POKE88,.:POKE89,248
120 POKE56333,127:POKE1,51:SYS41964:POKE1,55:POKE56333,129
130 POKE56578,PEEK(56578)OR3:POKE56576,PEEK(56576)AND252
140 POKE53272,PEEK(53272)AND15:POKE648,192:PRINTCHR$(147)
150 POKE53272,(PEEK(53272)AND240)OR12:RETURN
160 :
170 REM THIS SUBROUTINE READS IN AND
180 REM POKES CHARACTER DATA UNTIL IT
190 REM ENCOUNTERS A -1 IN THE DATA
200 READA:IFA=-1THENRETURN
210 FORX=.TO7:READD:POKE61440+A*8+X,D:NEXT:GOTO200